Global Biodiversity, Trade, and Conservation Funding

World Maps

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For example, you can include Bold and Italic and Code text. For more details on using R Markdown see http://rmarkdown.rstudio.com.

You should test out updating your GitHub Pages website:

  • clone your group’s blog project repo in RStudio
  • update “Your Project Title Here” to a new title in the YAML header
  • knit index.Rmd
  • commit and push BOTH the index.Rmd and the index.html files
  • go to https://stat231-s21.github.io/Blog-Team-Save-the-Planet/ to see the published test document (this is publicly available!)

Biodiversity

International Trade

Conservation Funding (as of 2013)

conservation <- read_csv("conservation_final.csv")
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   region = col_character(),
##   total_aid_funding = col_double(),
##   total_domestic_funding = col_double(),
##   trust_funds_and_debt_swaps = col_double(),
##   other = col_double(),
##   total = col_double(),
##   log_funding = col_double(),
##   sqrt_funding = col_double(),
##   long = col_double(),
##   lat = col_double(),
##   group = col_double(),
##   order = col_double(),
##   subregion = col_logical()
## )
## Warning: 35929 parsing failures.
##  row       col           expected  actual                     file
## 1222 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1223 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1224 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1225 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1226 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## .... ......... .................. ....... ........................
## See problems(...) for more details.
# Map of Log(funding)
ggplot(conservation, aes(x = long, y = lat, group = group, 
                         fill = log_funding)) +
  geom_polygon(color = "black") +
  theme_void() +
  coord_fixed(ratio = 1.3) +
  labs(title = "Conservation Funding By Country*"
       , subtitle = "as of 2013"
       , fill = ""
       , caption = "*Regions in white have no data") +
  #scale_fill_continuous(low="thistle2", high="darkred",                      guide="colorbar", na.value="white")
  scale_fill_viridis(option = "viridis", direction = -1, na.value="white")

In a study from the 1920s, fifty cars were used to see how the speed of the car and the distance taken to stop were related. Speeds ranged between 4 and 25 mph. Distances taken to stop ranged between 2 and 120 feet, with the middle 50% falling between 26 and 56 feet.

You can even create tabs if you want!

Bulleted list

You can make a bulleted list like this:

  • item 1
  • item 2
  • item 3

Numbered list

You can make a numbered list like this

  1. First thing I want to say
  2. Second thing I want to say
  3. Third thing I want to say